#!/usr/bin/perl

use utf8;
use strict;
use warnings;

my @number = qw/17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666/;

foreach (sort {$a <=> $b } @number) {
	printf "%20g\n", $_;
}